COVID-19
Intro
I liked the Financial Times plots for tracking the evolution of COVID-19 (https://www.ft.com/coronavirus-latest), but then they changed to different plots. So here I am more-or-less reproducing those plots (and adding some others). This is generated from an Rmarkdown document that I’ll be rerendering daily.
Grab data
I’d like to find an easy source of online data that breaks down the US by state, but for now just use the country data from ourworldindata.org:
cases = read.csv("https://covid.ourworldindata.org/data/ecdc/total_cases.csv",
stringsAsFactors=FALSE)
cases$date = as.POSIXct(cases$date)
deaths = read.csv("https://covid.ourworldindata.org/data/ecdc/total_deaths.csv",
stringsAsFactors=FALSE)
deaths$date = as.POSIXct(deaths$date)Cumulative deaths and cases
Cumulative deaths
Log-scale
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)
Linear-scale
Cumulative cases
Log-scale
Gray dashed lines are doubling times of 1, 2, 3, and 7 days (from steepest to shallowest)
Linear-scale
Naive case fatality rates
By “naive” I mean: at any point in time, divide the total cumulative number of deaths by the total cumulative number of confirmed cases.
Log-scale
Linear-scale
Incremental (daily) deaths and cases
The raw daily data is quite noisy, so there are also smoothed versions.
Daily deaths
Log-scale
Linear-scale
Daily new cases
Log-scale
Linear-scale
Smoothed daily deaths
Log-scale
Linear scale
Smoothed daily new cases
Log-scale
Linear scale
